Profile of (eval 257)[Sub/Quote.pm:3]

Filename	(eval 257)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 13 statements in 167µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	7µs	20µs	JSON::Schema::Modern::Result::::BEGIN@6 JSON::Schema::Modern::Result::BEGIN@6
1	1	1	3µs	3µs	Method::Generate::Accessor::_Generated::BEGIN@11.109
1	1	1	3µs	10µs	Method::Generate::Accessor::_Generated::BEGIN@20.110
0	0	0	0s	0s	JSON::Schema::Modern::Result::output_format

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	1µs			my $isa_check_for_output_5fformat = ${$_[1]->{"\$isa_check_for_output_5fformat"}};
4	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
5					package JSON::Schema::Modern::Result;
6	2	30µs	2	33µs	# spent 20µs (7+13) within JSON::Schema::Modern::Result::BEGIN@6 which was called: # once (7µs+13µs) by Sub::Quote::_clean_eval at line 6 no warnings 'closure'; # spent 20µs making 1 call to JSON::Schema::Modern::Result::BEGIN@6 # spent 13µs making 1 call to warnings::unimport
7					sub output_format {
8					($_QUOTED,$_UNQUOTED) if 0;
9					# BEGIN quote_sub PRELUDE
10					package Method::Generate::Accessor::_Generated;
11					# spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@11.109 which was called: # once (3µs+0s) by Sub::Quote::_clean_eval at line 16 BEGIN {
12	1	0s			$^H = 1762;
13	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
14	1	2µs			%^H = (
15					);
16	1	19µs	1	3µs	} # spent 3µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@11.109
17					# END quote_sub PRELUDE
18					(@_ > 1
19					? scalar do { my $value = $_[1];
20	2	109µs	2	17µs	# spent 10µs (3+7) within Method::Generate::Accessor::_Generated::BEGIN@20.110 which was called: # once (3µs+7µs) by Sub::Quote::_clean_eval at line 20 (do { no warnings "void"; package Type::Tiny; ((defined($value) and !ref($value) and $value =~ m{\A(?:(?:basic\|d(?:ata_only\|etailed)\|flag\|strict_basic\|terse\|verbose))\z})) or Type::Tiny::_failed_check($isa_check_for_output_5fformat, "Enum[\"flag\",\"basic\",\"strict_basic\",\"detailed\",\"verbose\",\"terse\",\"data_only\"]", $value, "attribute_name","output_format","attribute_step","isa check","mgaca","0","varname","\$self->{\"output_format\"}"); $value }), # spent 10µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@20.110 # spent 7µs making 1 call to warnings::unimport
21					($_[0]->{"output_format"} = $value),
22					($_[0]->{"output_format"}),
23					}
24					: $_[0]->{"output_format"}
25					) }
26	1	1µs			$$_UNQUOTED = \&output_format;
27					}
28	1	4µs			1;
29
30					;